home *** CD-ROM | disk | FTP | other *** search
/ C++ für Kids / C++ for kids.iso / SETUP / US / CBUILDER / DATA.Z / OLECTL.PAS < prev    next >
Pascal/Delphi Source File  |  1997-02-13  |  29KB  |  817 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Delphi Runtime Library                          }
  5. {       Windows 32bit API Interface Unit                }
  6. {                                                       }
  7. {       Copyright (c) 1996 Borland International        }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. unit OleCtl;
  12.  
  13. interface
  14.  
  15. uses Windows, Messages, Ole2;
  16.  
  17. const
  18.  
  19. { OLE control status codes }
  20.  
  21.   CTL_E_ILLEGALFUNCTIONCALL       = $800A0000 + 5;
  22.   CTL_E_OVERFLOW                  = $800A0000 + 6;
  23.   CTL_E_OUTOFMEMORY               = $800A0000 + 7;
  24.   CTL_E_DIVISIONBYZERO            = $800A0000 + 11;
  25.   CTL_E_OUTOFSTRINGSPACE          = $800A0000 + 14;
  26.   CTL_E_OUTOFSTACKSPACE           = $800A0000 + 28;
  27.   CTL_E_BADFILENAMEORNUMBER       = $800A0000 + 52;
  28.   CTL_E_FILENOTFOUND              = $800A0000 + 53;
  29.   CTL_E_BADFILEMODE               = $800A0000 + 54;
  30.   CTL_E_FILEALREADYOPEN           = $800A0000 + 55;
  31.   CTL_E_DEVICEIOERROR             = $800A0000 + 57;
  32.   CTL_E_FILEALREADYEXISTS         = $800A0000 + 58;
  33.   CTL_E_BADRECORDLENGTH           = $800A0000 + 59;
  34.   CTL_E_DISKFULL                  = $800A0000 + 61;
  35.   CTL_E_BADRECORDNUMBER           = $800A0000 + 63;
  36.   CTL_E_BADFILENAME               = $800A0000 + 64;
  37.   CTL_E_TOOMANYFILES              = $800A0000 + 67;
  38.   CTL_E_DEVICEUNAVAILABLE         = $800A0000 + 68;
  39.   CTL_E_PERMISSIONDENIED          = $800A0000 + 70;
  40.   CTL_E_DISKNOTREADY              = $800A0000 + 71;
  41.   CTL_E_PATHFILEACCESSERROR       = $800A0000 + 75;
  42.   CTL_E_PATHNOTFOUND              = $800A0000 + 76;
  43.   CTL_E_INVALIDPATTERNSTRING      = $800A0000 + 93;
  44.   CTL_E_INVALIDUSEOFNULL          = $800A0000 + 94;
  45.   CTL_E_INVALIDFILEFORMAT         = $800A0000 + 321;
  46.   CTL_E_INVALIDPROPERTYVALUE      = $800A0000 + 380;
  47.   CTL_E_INVALIDPROPERTYARRAYINDEX = $800A0000 + 381;
  48.   CTL_E_SETNOTSUPPORTEDATRUNTIME  = $800A0000 + 382;
  49.   CTL_E_SETNOTSUPPORTED           = $800A0000 + 383;
  50.   CTL_E_NEEDPROPERTYARRAYINDEX    = $800A0000 + 385;
  51.   CTL_E_SETNOTPERMITTED           = $800A0000 + 387;
  52.   CTL_E_GETNOTSUPPORTEDATRUNTIME  = $800A0000 + 393;
  53.   CTL_E_GETNOTSUPPORTED           = $800A0000 + 394;
  54.   CTL_E_PROPERTYNOTFOUND          = $800A0000 + 422;
  55.   CTL_E_INVALIDCLIPBOARDFORMAT    = $800A0000 + 460;
  56.   CTL_E_INVALIDPICTURE            = $800A0000 + 481;
  57.   CTL_E_PRINTERERROR              = $800A0000 + 482;
  58.   CTL_E_CANTSAVEFILETOTEMP        = $800A0000 + 735;
  59.   CTL_E_SEARCHTEXTNOTFOUND        = $800A0000 + 744;
  60.   CTL_E_REPLACEMENTSTOOLONG       = $800A0000 + 746;
  61.  
  62.   CTL_E_CUSTOM_FIRST = $800A0000 + 600;
  63.  
  64. { IClassFactory2 status codes }
  65.  
  66.   CLASS_E_NOTLICENSED = CLASSFACTORY_E_FIRST + 2;
  67.  
  68. { IConnectionPoint status codes }
  69.  
  70.   CONNECT_E_FIRST = $80040200;
  71.   CONNECT_E_LAST  = $8004020F;
  72.   CONNECT_S_FIRST = $00040200;
  73.   CONNECT_S_LAST  = $0004020F;
  74.  
  75.   CONNECT_E_NOCONNECTION  = CONNECT_E_FIRST + 0;
  76.   CONNECT_E_ADVISELIMIT   = CONNECT_E_FIRST + 1;
  77.   CONNECT_E_CANNOTCONNECT = CONNECT_E_FIRST + 2;
  78.   CONNECT_E_OVERRIDDEN    = CONNECT_E_FIRST + 3;
  79.  
  80. { DllRegisterServer/DllUnregisterServer status codes }
  81.  
  82.   SELFREG_E_FIRST = $80040200;
  83.   SELFREG_E_LAST  = $80040200;
  84.   SELFREG_S_FIRST = $00040200;
  85.   SELFREG_S_LAST  = $00040200;
  86.  
  87.   SELFREG_E_TYPELIB = SELFREG_E_FIRST + 0;
  88.   SELFREG_E_CLASS   = SELFREG_E_FIRST + 1;
  89.  
  90. { IPerPropertyBrowsing status codes }
  91.  
  92.   PERPROP_E_FIRST = $80040200;
  93.   PERPROP_E_LAST  = $8004020F;
  94.   PERPROP_S_FIRST = $00040200;
  95.   PERPROP_S_LAST  = $0004020F;
  96.  
  97.   PERPROP_E_NOPAGEAVAILABLE = PERPROP_E_FIRST + 0;
  98.  
  99. { Additional OLEMISC constants }
  100.  
  101.   OLEMISC_INVISIBLEATRUNTIME = $00000400;
  102.   OLEMISC_ALWAYSRUN          = $00000800;
  103.   OLEMISC_ACTSLIKEBUTTON     = $00001000;
  104.   OLEMISC_ACTSLIKELABEL      = $00002000;
  105.   OLEMISC_NOUIACTIVATE       = $00004000;
  106.   OLEMISC_ALIGNABLE          = $00008000;
  107.   OLEMISC_SIMPLEFRAME        = $00010000;
  108.   OLEMISC_SETCLIENTSITEFIRST = $00020000;
  109.   OLEMISC_IMEMODE            = $00040000;
  110.  
  111. { Additional OLEIVERB constants }
  112.  
  113.   OLEIVERB_PROPERTIES = -7;
  114.  
  115. { Additional variant type tags for property sets }
  116.  
  117.   VT_STREAMED_PROPSET = 73;  { Stream contains a property set }
  118.   VT_STORED_PROPSET   = 74;  { Storage contains a property set }
  119.   VT_BLOB_PROPSET     = 75;  { Blob contains a property set }
  120.  
  121. { Variant type tags that are just aliases for others }
  122.  
  123.   VT_COLOR          = VT_I4;
  124.   VT_XPOS_PIXELS    = VT_I4;
  125.   VT_YPOS_PIXELS    = VT_I4;
  126.   VT_XSIZE_PIXELS   = VT_I4;
  127.   VT_YSIZE_PIXELS   = VT_I4;
  128.   VT_XPOS_HIMETRIC  = VT_I4;
  129.   VT_YPOS_HIMETRIC  = VT_I4;
  130.   VT_XSIZE_HIMETRIC = VT_I4;
  131.   VT_YSIZE_HIMETRIC = VT_I4;
  132.   VT_TRISTATE       = VT_I2;
  133.   VT_OPTEXCLUSIVE   = VT_BOOL;
  134.   VT_FONT           = VT_DISPATCH;
  135.   VT_PICTURE        = VT_DISPATCH;
  136.   VT_HANDLE         = VT_I4;
  137.  
  138. { Reflected window message IDs }
  139.  
  140.   OCM__BASE = WM_USER + $1C00;
  141.  
  142.   OCM_COMMAND           = OCM__BASE + WM_COMMAND;
  143.   OCM_CTLCOLORBTN       = OCM__BASE + WM_CTLCOLORBTN;
  144.   OCM_CTLCOLOREDIT      = OCM__BASE + WM_CTLCOLOREDIT;
  145.   OCM_CTLCOLORDLG       = OCM__BASE + WM_CTLCOLORDLG;
  146.   OCM_CTLCOLORLISTBOX   = OCM__BASE + WM_CTLCOLORLISTBOX;
  147.   OCM_CTLCOLORMSGBOX    = OCM__BASE + WM_CTLCOLORMSGBOX;
  148.   OCM_CTLCOLORSCROLLBAR = OCM__BASE + WM_CTLCOLORSCROLLBAR;
  149.   OCM_CTLCOLORSTATIC    = OCM__BASE + WM_CTLCOLORSTATIC;
  150.   OCM_DRAWITEM          = OCM__BASE + WM_DRAWITEM;
  151.   OCM_MEASUREITEM       = OCM__BASE + WM_MEASUREITEM;
  152.   OCM_DELETEITEM        = OCM__BASE + WM_DELETEITEM;
  153.   OCM_VKEYTOITEM        = OCM__BASE + WM_VKEYTOITEM;
  154.   OCM_CHARTOITEM        = OCM__BASE + WM_CHARTOITEM;
  155.   OCM_COMPAREITEM       = OCM__BASE + WM_COMPAREITEM;
  156.   OCM_HSCROLL           = OCM__BASE + WM_HSCROLL;
  157.   OCM_VSCROLL           = OCM__BASE + WM_VSCROLL;
  158.   OCM_PARENTNOTIFY      = OCM__BASE + WM_PARENTNOTIFY;
  159.  
  160. { TControlInfo.dwFlags masks }
  161.  
  162.   CTRLINFO_EATS_RETURN = 1;  { Control doesn't send Return to container }
  163.   CTRLINFO_EATS_ESCAPE = 2;  { Control doesn't send Escape to container }
  164.  
  165. { IOleControlSite.TransformCoords flags }
  166.  
  167.   XFORMCOORDS_POSITION            = 1;
  168.   XFORMCOORDS_SIZE                = 2;
  169.   XFORMCOORDS_HIMETRICTOCONTAINER = 4;
  170.   XFORMCOORDS_CONTAINERTOHIMETRIC = 8;
  171.  
  172. { IPropertyPageSite.OnStatusChange flags }
  173.  
  174.   PROPPAGESTATUS_DIRTY    = 1;  { Values in page have changed }
  175.   PROPPAGESTATUS_VALIDATE = 2;  { Appropriate time to validate/apply }
  176.  
  177. { Picture attributes }
  178.  
  179.   PICTURE_SCALABLE    = 1;
  180.   PICTURE_TRANSPARENT = 2;
  181.  
  182. { TPictDesc.picType values }
  183.  
  184.   PICTYPE_UNINITIALIZED = -1;
  185.   PICTYPE_NONE          = 0;
  186.   PICTYPE_BITMAP        = 1;
  187.   PICTYPE_METAFILE      = 2;
  188.   PICTYPE_ICON          = 3;
  189.   PICTYPE_ENHMETAFILE   = 4;
  190.  
  191. { Standard dispatch ID constants }
  192.  
  193.   DISPID_AUTOSIZE      = -500;
  194.   DISPID_BACKCOLOR     = -501;
  195.   DISPID_BACKSTYLE     = -502;
  196.   DISPID_BORDERCOLOR   = -503;
  197.   DISPID_BORDERSTYLE   = -504;
  198.   DISPID_BORDERWIDTH   = -505;
  199.   DISPID_DRAWMODE      = -507;
  200.   DISPID_DRAWSTYLE     = -508;
  201.   DISPID_DRAWWIDTH     = -509;
  202.   DISPID_FILLCOLOR     = -510;
  203.   DISPID_FILLSTYLE     = -511;
  204.   DISPID_FONT          = -512;
  205.   DISPID_FORECOLOR     = -513;
  206.   DISPID_ENABLED       = -514;
  207.   DISPID_HWND          = -515;
  208.   DISPID_TABSTOP       = -516;
  209.   DISPID_TEXT          = -517;
  210.   DISPID_CAPTION       = -518;
  211.   DISPID_BORDERVISIBLE = -519;
  212.  
  213.   DISPID_REFRESH  = -550;
  214.   DISPID_DOCLICK  = -551;
  215.   DISPID_ABOUTBOX = -552;
  216.  
  217.   DISPID_CLICK      = -600;
  218.   DISPID_DBLCLICK   = -601;
  219.   DISPID_KEYDOWN    = -602;
  220.   DISPID_KEYPRESS   = -603;
  221.   DISPID_KEYUP      = -604;
  222.   DISPID_MOUSEDOWN  = -605;
  223.   DISPID_MOUSEMOVE  = -606;
  224.   DISPID_MOUSEUP    = -607;
  225.   DISPID_ERROREVENT = -608;
  226.  
  227.   DISPID_AMBIENT_BACKCOLOR         = -701;
  228.   DISPID_AMBIENT_DISPLAYNAME       = -702;
  229.   DISPID_AMBIENT_FONT              = -703;
  230.   DISPID_AMBIENT_FORECOLOR         = -704;
  231.   DISPID_AMBIENT_LOCALEID          = -705;
  232.   DISPID_AMBIENT_MESSAGEREFLECT    = -706;
  233.   DISPID_AMBIENT_SCALEUNITS        = -707;
  234.   DISPID_AMBIENT_TEXTALIGN         = -708;
  235.   DISPID